home *** CD-ROM | disk | FTP | other *** search
- 1 c0=5:c1=2:c2=6:c3=0:sp=1
- 2 poke53281,0:poke53280,11:print"[147][142]please wait..."
- 3 print"use the joystick firebutton":print"to pause the graphics."
- 5 fora=12288toa+2047:pokea,int(rnd(1)*256):next:poke53269,0
- 6 gosub500
- 7 poke646,(c3and7)+8:poke53281,(c3and7)+8:print"[147]":poke53281,c0:poke53272,29
- 10 poke53270,216:poke53282,c1:poke53283,c2:poke53280,0
- 50 poke54272,0:poke54286,128:poke54287,128:poke54290,128:sys49152
- 60 wait56320,16:wait56320,16,16:wait56320,16:goto50
- 490 end
- 500 fora=0to2:l=832+a*64:poke2040+a,13+a:poke53287+a,sp:poke53249+a*2,0
- 510 poke53248+a*2,120+a*48
- 520 readb:ifb<>-1thenpokel,b:l=l+1:goto510
- 530 next:l=49152
- 540 readb:ifb<>-1thenpokel,b:l=l+1:goto540
- 590 poke53277,7:poke53276,0:poke53269,7:return
- 900 data 126,102,0,24,102,0,24,102,0,24,102,0,24,102,0,24,60,0,24,24,0,0,0,0,-1
- 905 data 126,60,60,24,102,102,24,102,102,24,102,102,24,102,102,24,102,102
- 910 data 24,60,60,0,0,0,120,126,99,108,96,119,102,96,127,102,120,107,102,96,99
- 915 data 108,96,99,120,126,99,0,0,0,-1
- 920 data124,0,0,102,0,0,102,0,0,124,0,0,102,0,0,102,0,0,124,0,0,0,0,0
- 925 data 60,0,0,102,0,0,102,0,0,102,0,0,102,0,0,102,0,0,60,0,0,0,0,0,-1
- 950 data 120,162,0,173,27,212,157,0,4,173,27,212,157,0,5,173
- 960 data 27,212,157,0,6,173,27,212,157,232,6,232,208,229,173,17
- 970 data 208,41,128,240,249,238,1,208,238,3,208,238,5,208,173,0
- 980 data 220,41,16,208,204,88,96,0,0,0,0,0,-1
-